home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Demos / Bowers Development / AppMaker 2.0b5 / Examples / TCL / AMReminder / Add.cp next >
Encoding:
Text File  |  1996-03-19  |  1.9 KB  |  95 lines  |  [TEXT/KAHL]
  1. /* Add.cp -- Modal dialog */
  2. /* Created 01/01/95 12:01 PM by AppMaker */
  3.  
  4. /*    This module overrides the AppMaker-generated code in zAdd.        */
  5. /*    It provides a place for you to add your own code and still be able to    */
  6. /*    generate code for new changes to the user interface.  This module will    */
  7. /*    not be regenerated by AppMaker unless you delete it.  Its superclass,    */
  8. /*    zAdd, may be regenerated to handle user interface changes        */
  9. /*    without losing your hand-coded changes to this module.                    */
  10.  
  11. #include <Commands.h>
  12. #include <Global.h>
  13. #include <CBartender.h>
  14. #include <CDirectorOwner.h>
  15. #include <TBUtilities.h>
  16. #include <CAMButton.h>
  17. #include <CPicture.h>
  18. #include <CAMStaticText.h>
  19. #include <CAMDialogText.h>
  20. #include <CLabeledGroup.h>
  21. #include <CAMRadioControl.h>
  22. #include <CAMCheckBox.h>
  23. #include <CAMPopupPane.h>
  24. #include "CmdCodes.h"
  25. #include "Add.h"
  26.  
  27. extern    CBartender        *gBartender;    /* The menu handling object */
  28.  
  29.  
  30. /*----------*/
  31. void    DoAdd    (CDirectorOwner        *aSupervisor)
  32. {
  33.     CAdd    *dialog;
  34.     long            dismisser;
  35.  
  36.     dialog = NULL;
  37.     TRY {
  38.         dialog = new CAdd;
  39.         dialog->IAdd (aSupervisor);
  40.  
  41.         /* initialize dialog panes */
  42.  
  43.         dialog->BeginDialog ();
  44.         dismisser = dialog->DoModalDialog (cmdOK);    
  45.  
  46.         if (dismisser == cmdOK) {
  47.             /* extract values from dialog panes */
  48.         }
  49.  
  50.         ForgetObject (dialog);
  51.     } CATCH {
  52.         ForgetObject (dialog);
  53.     } ENDTRY;
  54.  
  55. } /* DoAdd */
  56.  
  57. /*----------*/
  58. void    CAdd::IAdd    (CDirectorOwner        *aSupervisor)
  59. {
  60.     inherited::IZAdd (aSupervisor);
  61.  
  62.     // any additional initialization for your dialog
  63.  
  64. } /* IAdd */
  65.  
  66. /*----------*/
  67. void    CAdd::UpdateMenus    (void)
  68. {
  69.     inherited::UpdateMenus ();
  70.  
  71. } /* UpdateMenus */
  72.  
  73. /*----------*/
  74. void    CAdd::DoCommand        (long        theCommand)
  75. {
  76.     switch (theCommand) {
  77.  
  78.         default:
  79.                 inherited::DoCommand (theCommand);
  80.             break;
  81.     } /* switch */
  82.  
  83. } /* DoCommand */
  84.  
  85. /*----------*/
  86. void    CAdd::ProviderChanged    (CCollaborator    *aProvider,
  87.                                          long            reason,
  88.                                          void*            info)
  89.  
  90. {
  91.  
  92. } /* ProviderChanged */
  93.  
  94. /* Add */
  95.